home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0687.arc / SYNTH1.F77 < prev   
Text File  |  1987-04-02  |  716b  |  28 lines
  1. C     SYNTHETIC FORTRAN SOURCE CODE
  2. C
  3.       IMPLICIT REAL (A-D)
  4.       DATA A000/1.0/,B000/2.0/,C000/3.0/,D000/4.0/
  5.       A001 = C000 - B000
  6.       B001 = D000 / B000
  7.       C001 = A000 + B000
  8.       D001 = B000 * B000
  9.       A002 = C001 - B001
  10.       B002 = D001 / B001
  11.       C002 = A001 + B001
  12.       D002 = B001 * B001
  13.       A003 = C002 - B002
  14.       B003 = D002 / B002
  15.       C003 = A002 + B002
  16.       D003 = B002 * B002
  17.       A004 = C003 - B003
  18.       B004 = D003 / B003
  19.       C004 = A003 + B003
  20.       D004 = B003 * B003
  21.       A005 = C004 - B004
  22.       B005 = D004 / B004
  23.       C005 = A004 + B004
  24.       D005 = B004 * B004
  25.       WRITE(*,1000) A005, B005, C005, D005
  26.  1000 FORMAT(4F10.1)
  27.       END
  28.